From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Sep 1994 07:22:46 +0000 (+0000)
Subject: (insert-buffer): Default to first buffer other than current one.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90065
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8be055fdee6b20d22e61ff68665406c1e81c1b5d;p=emacs.git

(insert-buffer): Default to first buffer other than current one.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 1e30d146c16..0ced4f6787d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1230,7 +1230,9 @@ With argument, rotate that many kills forward (or backward, if negative)."
 Puts mark after the inserted text.
 BUFFER may be a buffer or a buffer name."
   (interactive (list (progn (barf-if-buffer-read-only)
-			    (read-buffer "Insert buffer: " (other-buffer) t))))
+			    (read-buffer "Insert buffer: " 
+					 (other-buffer (current-buffer) t)
+					 t))))
   (or (bufferp buffer)
       (setq buffer (get-buffer buffer)))
   (let (start end newmark)